home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MS Hearts.xpl < prev    next >
Text File  |  2000-12-13  |  2KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Games\MS Hearts"
  5. "NAME"="MS Hearts Tweaks"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.05"
  8. "TEXT 1"="Enable Tweak"
  9. "TEXT 2"="Disable Tweak"
  10. "DESCRIPTION 1"="Click "Enable Tweaks" to activate the a very nice cheat inside this program:"
  11. "DESCRIPTION 2"="For the user to cheat in MS Hearts, they need to enable this cheat first, then they must press "CTRL + SHIFT + ALT + F12" all at once and it will allow them to see all the cards of the other players in the game instantly."
  12. "DESCRIPTION 3"="This plug-in may be disabled even if you have MS Hearts installed, because you must run the program at least once prior to using this plug-in in order to create the appropriate registry entries for the plug-in to detect the existance of MS Hearts."
  13. "AUTHOR"="CptSiskoX"
  14. "CONTACTURL"="http://members.fortunecity.com/computingx/"
  15. "COPYRIGHT"="Copyright (C) Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  18.  
  19.  
  20. sP="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Hearts\" 
  21. sV1="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Hearts\ZB" 'value should be "42"
  22.  
  23. 'Called when the Plugin is started
  24. SUB Plugin_Initialize
  25.  If RegPathExists(sP)=false then Disable()
  26. END SUB
  27.  
  28. 'Called when the Plugin should validate the Data the user has entered
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. 'Called when the Plugin should apply the changes
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  If ElementIndex=1 then 
  35.     Call RegWriteValue(sV1,"42",1)
  36.     Call MsgInformation("Tweak enabled")
  37.  else
  38.     Call RegWriteValue(sV1,"",1)
  39.     Call MsgInformation("Default settings restored")
  40.  end if
  41.    
  42. END SUB
  43.  
  44. 'Called when the Plugin is about to be removed from memory
  45. SUB Plugin_Terminate
  46. END SUB
  47.